Internet pripojeni

Otázka od: Sebesta Jan

20. 9. 2004 8:55

Ahoj,

Mam tri otazky:

Jak nejlepe otestovat existenci prave spojeni na internet ? Proste chci neco
jako pokud je pc prave spojeno s internetem tak neco udelej. Nechci, ale aby
po v pripade vytacene linky chtelo vytacet.

Jak nejepe provest test existence souboru napr.www.neco.cz/soubor.xxx ?

Jak jelepe poslat stahnout soubor pres http?

Dekuji
Jan Sebesta

Odpovedá: Vlastimil Burian

20. 9. 2004 22:59

1. Jak nejlepe otestovat existenci prave spojeni na internet ?
2. Jak nejepe provest test existence souboru napr.www.neco.cz/soubor.xxx
?
3. Jak jelepe poslat stahnout soubor pres http?
--------------------------------
1.

uses WinInet;

if InternetGetConnectedState(nil, 0)) ...

2. + 3.

uses URLMon;

try
OK := UrlDownloadToFile(nil, PAnsiChar(zdroj), PAnsiChar(cil), 0, nil) =
0;
except
OK := False;
end;

if OK then .... soubor existuje ....

.... da se to udelat i takhle i
kdyz sem to nezkousel

Odpovedá: Josef Straka

21. 9. 2004 7:21

----- Original Message -----
> 1. Jak nejlepe otestovat existenci prave spojeni na internet ?

USES WinInet

function IsConnectedToInternet: bool;
var dwConnectionTypes: Word;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM
                        + INTERNET_CONNECTION_LAN
                        + INTERNET_CONNECTION_PROXY;
  if InternetGetConnectedState(@dwConnectionTypes, 0) then
    Result := True
  else Result := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if IsConnectedToInternet then
Button1.Caption := 'ANO'
else Button1.Caption := 'NE';
end;

Straka Josef
mail: strakajosef@quick.cz
www: http://strakaj.zde.cz